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Ha or ont Ae - MAIN PROGRAM FOR STANDALONE CONFIGURE 
IDEN v04 


FRRAAAAHEAA KSAT AAS AAA AAAAAAAAAAAAERAARAARAREAAAAAAAEAAATAAAAREKAAAAAEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, © MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fe ‘acche ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THe ABOVE corer NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF a A BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

HER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:? % 
:* * 
:® * 
st ® 
:* * 
® * 
t * 
:* * 
:* * 
s* OT * 
;* TRANSFERRED. * 
:* * 
:® * 
:* * 
:* t 
:* * 
sf * 
sf * 
f * 
st * 
* e 


SOoOoooooooooooSo 


COooooooo 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Sooo COooCooooCOoooooooooooooooso 


COOQCOCOCOCOOCOOCOOCOOOCO OOOO OOOO OSOSOSOSOSOOOOOOOOOOOOOOOOOOO 
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FACILITY: STANDALONE CONF IGURE 


ABSTRACT: 

THIS ryt B IS THE MAIN PROGRAM AND SUBROUTINES FOR 

Paget ay ONFIGURE. THIS PROCESS IS USED i, sor teu ALL 

DISK AND P re pei yen? (COINCIDENTALLY, PAPER TAPE AS WELL) FROM 
SYSINIT. ALL MSCP= AND HSC=SERVED DEVICES ARE CONFIGURED AS WELL, 
IF A QUORUM DISK IS NEEDED. 


ENVIRONMENT: USER, EXEC, AND KERNEL MODE 


AUTHOR: MARY ANN HINDEN CREATION DATE: 18-SEP-1979 
(ADAPTED FROM STASYSGEN) 


MODIFIED BY: 


v03-005 RSHO075 R. Scott Hanna 14-0ct-1983 
Change the call to the ast routine AST_REC to cause 
it to execute in exec mode. 


v03-004 RSHO073 Scott Hanna 10-Oct-1983 
Change the call 3 the ast routine AST_REC to cause 
t to execute in kernel mode. 


v03-003 yc 0803 Wayne Cardoza 09-Aug-1983 
D devices back. 


v03-002 wMC0002 Wayne Cardoza 05-Aug-1983 


OOOOCCOOoOOCOOOoOoOoOoOoOSooooooOooO 


SOSOCSCSOSOSOSSSSOSOOSOSOOSOSOSOSOSOSOOSOOSOOSSOSSOSOOOSoOO 


SOOO SCCOSOSOSCOOSOSOOOSOOSOOOSOOSOoOSOSoOSoSoSo 
NAAN OOD NA UNE WIN SO OO NAME WINS ODNAUES WN O OONO UE WAR OO OONOU Sw 


PVP PVPS SUIS ED BBS BBB EEE EWAN PINPININPINPONPONPNYDY 9 2 


SoooooooooooSo 


5 
sea > mum Pe om Stemi onal NEES PUTAS REI OTP EE anys 


Add LbrSoutput_help. 
Disable eutocont igure of D devices until this module is made 
to deal with noncontigous drivers. 


v03-001 wMC0001 Wayne e Cardoza O01-Au 4 ras 
Add BOOSEXEOPEN, BOOSFILCLOSE, BOOSUF OPEN EXESLOAD_CODE 
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| ¥04=000 DECLARATIONS grSe 188s SE:83:38 PARA ES Ragce vOReOO n., Page 3, 
LSBTTL DECLARATIONS 


p 67 
oe $ 
8 $3 ; INCLUDE FILES: 
0 ee SCLUBDEF 3 Define cluster symbols 
009 7 r , 
0 8 73; 
it 74 ; MACROS: 
000 73 3 
0000 6 
$000 ; ; EQUATED SYMBOLS 
$009 8 ; 
0000 80 
0000 81 ; 
0000 Hf 3; OWN STORAGE: 
0000 83 ; 
0000 84 
venat i -PSECT BOOSSYSGEN,WRT 
00000000 444 Hf BOOSGL_CMDOPT:: .LONG 0 ; Options Longword 
0004 89 SELECT_LIST: ; Select List for AUTOCONFIGURE ALL 
44 9" 4 9 90 eASCIC /D/ 3; ALL disks 
50 By" Bane 91 eASCIC /P/ ; ALL port drivers (and paper tape!) 
00 B08 -—BYTE 0O : End of List 
30 3A 30 30 20 30 99090011°9 1050000" 0009 94 ASCII_TIME: eASCID /0 00:00:05.00/ 
30 30 2E 35 30 3A 30 0017 
00000026 OO1E 95 BIN TIME: -BLKQ 1 
20 20 20 20 20 20 20 20 20 20 20 20 0026 96 BLANKS: ASCII / / : 16 blanks 
20 20 20 20 Boe 97 


—--y 
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FIG = main program raat eet {Boots sre STACONF 1G.MAR; 1 a (3) 


r -SBTTL BOOSSTACONFIG = main program 
FUNCTIONAL DESCRIPTION: 
This i 


$s the main program for standalone CONFIGURE. It does the 
following: 


1) Locks the entire image into the working set. 

$3 Autoconfigures disks and port devices. 
) If we are not using a quorum disk in order to 
form a cluster, the image exits. 

4) Sets a timer. Every 5 seconds, a check is made 
to see if we are in a cluster yet. If so, we 
exit; else we reset the timer. 

5) Call BOOSCONFIGURE, which will configure all MSCP- 
and HSC-served devices. At some point the disk which 
is needed to form the cluster will be configured, the 
cluster will form, and the image will exit. 


Note that no determination is made about which specific disk is to 
be the quorum disk - they are simply all configured. 


CALLING SEQUENCE: 
Called by SYSINIT (via the image activator) 
INPUT PARAMETERS: 


Bete Fe Ge Se Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Se Se Se Ge Ge Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Se 


So 
oO 
La 
oa 
ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee ee ee ee ee ee ee ee ee ee ee 


PUPP BBS BB BE EAA AAAI IP POPPI NINDPUNINYIDYD 2 9 SS DOOOOOOOCOCONO 
MEAN OOD NAW EWN 0 OONAU EWN $9 OD NOAU EWN (OO OONOU ESWC OONOUSWWN00 


0036 
0036 NONE 
0036 OUTPUT PARAMETERS: 
0036 
0036 NONE 
0036 
poe ERROR INDICATIONS: 
Ope Various errors printed on the system console 
0036 -- 
0036 
000c 0036 -ENTRY BOOSSTACONFIG,“*M<R2,R3> 
0038 SLKWSET_S - : Lock entire image in working set 
0038 INADR=BOO$GQ LIMITS, - ; 
0038 RETADR=BOO$GO_RETADR : 
boeD ' 
Shee : Get current values for local copy of SYSPARAM 
00000000'EF 00 FB Baee CALLS #0,BOOSUSEACT 
0054 ; 
Onee ; Autoconfigure disks and port devices. 
OOOOQ000"EF AD AF 9E Bnee MOVAB seuect LIST,BOOSGL_SELECT ; Use builtin select List 
00000000"EF 00 FB i CALLS #0, BOOSCONF {GALL ; Autoconfigure all adapters 
006 : ‘. 
006 ; If the quorum disk system parameter is non-blank, then we configure 
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Page (3) 


3; Check if we are a cluster member 


if we are not a cluster member 


| STACONF IG 16-SEP-1984 :03:36 VAX/VMS Macro v04-00 
\¥ -000 BOOSSTACONFIG = main program eet 30 0808 BOOTS .SRCJSTACONF IG.MAR;1 
006 138 ; all “‘served"’ devices in case one of them is the quorum disk; else 
096 138 ; the image exits. 
BA AF 00000000'GF 1 9 0063 159 ° CMPC3) §-#4*4,G*CLUSGB_QD1SK, BLANKS 
8 3 006C 160 BEQL 10$ “ 
Baee 193 
O6— 1 ¢ 5 ‘ 
43 197 3; Get binary equivalent of 5 secords to set timer. 
O06E 165 SBINTIM_S timbuf = ASCII_TIME,- 
OO6E 166 timadr = BIN_TIME 
0078 167 SCMEXEC_S AST_R 
008A 168 
QOO8BA 169; 
st 74 159 3; Start threads which will configure MSCP- and HSC-served disks. 
OOOO0O000'EF 00 FB poe 176 CALLS #0,BO0$CONF IGURE 

04 0091 174 108: RET 

009 175 
0004 98 176 AST_REC: ~WORD “M<R2> 
52 Q00009000'GF 00 0094 178 MOVL G*CLUSGL CLUB,R2 : Get cluster info block 
1 0098 179 BBC #CLUBSV_ULLUSTER,- ; Br 
OA 1C A2 0090 180 CLUBSL_FLASS(R2) ,10$ 

QO0AO 3-181 
00A0 ise : : 
QOAO 183 ; Cluster has been formed - exit 
OOAO 184 ; 
QOA0 185 SEXIT_S 

04 OOA9 186 RET 
OOAA 187 
QOAA 188; 
QOAA 189 ; Cluster not yet formed 
OOAA 190 ; ; 
OOAA 191 10$:  SSETIMR_S efn = #3, ; Reset timer 
OOAA 192 daytim = B/N_TIME,- 
OOAA 193 astadr = AST_REC 

04 OO0BC 194 RET : Dismiss AST 
O0OBD 195 


STACONF IG = MAIN PROGRAM FOR STANDALONE CONFIGURE o~see=) 3: AX/VMS Macro V04-00 Pa 6 
‘VO4=000 Dummy entry points g-3EF- =} 382 99: 8% ‘38 Yeoors: SRCJS TACONFIG.MAR: 1 - (4) 
D 197 -SBTTL Dummy entry points 
ee peri 
0BD 0: These entry points are need to resolve references to routines 
nd 3; not Linked with the standalone version of CONFIG. 
ak 
BD 4 EXESLOAD CODE:: 
OBD 5 LBRSOUTPOT _HELP:: 
0000 00B8D 96 -WORD 0 ; ENTRY MASK 
50 04 OOBF CLRL RO 
04 Bot) 3 RET 
00C 10 BOOSREADF ILE: 
Bae 1} o's of PLE 
00Cc 18 Bo BO mere 
50 D4 00C 14 CLR RO 
05 00C4 15 RS 
gee 3 
00cS 218 «END BOOSSTACONF IG 


tn 


—_--—_--—- - 


_gtacowr ic 


CON 
CON 
CON 
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Symbol table 4-SEP 
$$11 = 
AST REC o $3 . 
BIN, TIME 1E R 
LARK 00026 
BOOSCONF IGALL eeereree Xx 
BOOSCONF IGURE eeereeee § X 
BOOSE XEOPEN 4444 RG 8 
ate gl Q0000C2 RG 
MDOPT 00000000 RG 
BOOSGL_ =SELECT eereeree xX 
BO0$GQ~ “bint S teeteeee =X 
BOO$GQ"RETADR teneeeee =X 
BOOSREADF ILE 000000C2 RG 8 
BOOSSTACONF 1G 00000036 RG 
BOOSUF OOPEN 000000C2 <. 0 
BOOSUSEACT eeeeeene 0 
CLUSGB_QD1SK tteneeee ‘ 0 
CLUSGL_CL eerereee =X 0 
CLUBSL_FLAG = 0000001C 
CLUBSV CLUSTER = 00000000 
EXESLOAD CO QO0000BD RG 02 
LBRSOUTPOT HELP Q00000BD RG 02 
SELECT LIST 00000004 R 85 
SYSSBIATIM eeeeeeee GX 0 
SYSSCMEXEC eeereree GX 02 
SYSSEXIT eeeeeeee GX 02 
SYSSLKWSET teeceree GX 02 
SYSSSETIMR eececeee GX 02 
ow oce mm en arora meme we ra 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
~ ¥ 4 94 44 6 ( 89 : 9. , ) NoPle use 
BOO$SYSGEN 000000C5 108 02 NOPIC USR 
Suesdeenseneesssenewonns} 
' ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 37 00: O: 99 0: 9: 0.26 
Command processing 142 33: 700.71 0:00:04.12 
Pass 164 0: 8: 46 3: 0:07.24 
pyetol table sort 5 0:00: ¢} 200: - g 
Symbol table output 5 0:00:00.04 at 0.37 
Psect synopsis output 8 3 3: 3 :00:00. 
Cross-reference output :00:00. :00:00.0 
Assembler run totals 404 0:00:04. 0:00:15.7 


The working set Limit was 1200 pages. 


71986 29:06:06 


ABS LCL 
ABS LCL 
REL LCL 


AX/VMS Macro v04-00 


Page 
BOOTS. SRCJSTACONF IG.MAR;1 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE R&D WRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC BYTE 
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VAX-11 Macro Run Statistics 4-SEP-19 6: BOOTS .SRCJSTACONF IG.MAR;1 
11071 bytes (22 pages) of virtual memory were used to but fer. he intermediate goge ode. 
There were 20 pages of symbol table Pace mh ned ed to hold 184 non-local gnd local symbols. 
218 source Lines were read in Pass 1, predys tne 18° object records in Pass 
16 pages of virtual memory were used to define macros. 


eo 


! Macro Library statistics ! 


pose oe mee nese cae serene wre won t 


Macro Library name Macros defined 
=$35S80uA e:t8 pots. 0831 18-8; -MLB;1 9 
SDUA + 
teyec ie) STARLET .MLB;2 11 
Terie att Libraries) 12 


281 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:STACONF 1G/0BJ=0BJ$:STACONFIG MSRC$:STACONF I1G/UPDATE=(ENHS: STACONF 1G) +EXECML$/L1B+L1B$:B00TS.MLB/LIB 
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